home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / epp_v1_1.lha / EPP / PModules / skipToEDelim.e < prev    next >
Text File  |  1993-06-26  |  519b  |  27 lines
  1. OPT TURBO
  2.  
  3. PROC skipToEDelim (theString, pos)
  4.   DEF length, c
  5.  
  6.   /* Finds the next E delimiter in theString and returns its position. */
  7.  
  8.   length := StrLen (theString)
  9.   WHILE pos < length
  10.     c := theString [pos]
  11.     IF ((c > 64) AND (c < 90))  /* A-Z */
  12.       NOP
  13.     ELSEIF ((c > 96) AND (c <123))  /* a-z */
  14.       NOP
  15.     ELSEIF ((c > 47) AND (c < 58))  /* 0-9 */
  16.       NOP
  17.     ELSEIF c = 95  /* underscore */
  18.       NOP
  19.     ELSE
  20.       RETURN pos
  21.     ENDIF
  22.     INC pos
  23.   ENDWHILE
  24. ENDPROC  pos
  25.   /* skipToEDelim */
  26.  
  27.